Collection of Tools & Utilities/Collection of Tools and Utilities.iso/graphic/tpega.zip/DPCONTR.P

Text File | 1986-01-15 | 701b | 15 lines

{                                                                              }
{                                                                              }
{                                                                              }

procedure DP_Contr(Black,White: Integer);
begin
  Black := Black and $3F;               { Black must be in 0 - 63 range }
  White := White and $3F;               { White must be in 0 - 63 range }
  if Black < White                      { Black must be less than White }
    begin
      port[DD_PORT+ 9] := Black;        { Set the black contrast        }
      port[DD_PORT+10] := White;        { Set the white contrast        }
    end;
end;